(report-emacs-bug-hook): Use replace-match only if search was successful.

diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index 9b1d3cd45539d4adab85e268142ce24ba68da55b..e444fbfae3e928109bb736cdf0f69a35aa86c557 100644 (file)
--- a/lisp/mail/emacsbug.el
+++ b/lisp/mail/emacsbug.el
@@ -242,9 +242,9 @@ and send the mail again using \\[mail-send-and-exit].")))
     (let ((p (point)))
       (if (re-search-forward (concat "^In " (emacs-version)) nil t)
          (delete-region p (match-beginning 0))))
-    (re-search-forward "Please describe.+\n.+precise symptoms.+bug:\n*"
-                       (point-max) t)
-    (replace-match "Symptoms:\n")))
+    (if (re-search-forward "Please describe.+\n.+precise symptoms.+bug:\n*"
+                          (point-max) t)
+       (replace-match "Symptoms:\n"))))
 
 (provide 'emacsbug)